home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / EDUCNOMY / ASTROSET.LZH / SAROS.BAS < prev    next >
BASIC Source File  |  1985-12-20  |  512b  |  25 lines
  1.  
  2. 10 REM     SAROS SERIES
  3. 14 REM
  4. 18 PRINT
  5. 22 INPUT "JULIAN DAY NUMBER";J
  6. 26 Q=J/29.530588-82064
  7. 30 B=INT(Q): N=Q-B
  8. 34 IF N>0.28 AND N<0.36 THEN 42
  9. 38 PRINT "WARNING: NOT NEW MOON!"
  10. 42 PRINT "  BROWN LUNATION ";B
  11. 46 D=B-848
  12. 50 S=136+38*D
  13. 54 X=-61*D
  14. 58 C=INT(X/358+0.5-D/(12*358*358))
  15. 62 S=S+223*C
  16. 66 X=X-358*C
  17. 70 IF ABS(X-(S-136)/12)<55 THEN 78
  18. 74 PRINT "WARNING: NO ECLIPSE!"
  19. 78 PRINT "  SAROS NUMBER ";S
  20. 82 PRINT "  RELATIVE ECLIPSE ";
  21. 86 PRINT INT(X-(S-136)/12+0.5)
  22. 90 PRINT
  23. 94 END
  24.  
  25.